home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / config / dummy / getcc. < prev    next >
Text File  |  1996-09-12  |  836b  |  49 lines
  1. |*****************************************************************************
  2. |
  3. |   NAME
  4. |
  5. |    __AROS_LH0(UWORD, GetCC,
  6. |
  7. |   LOCATION
  8. |    struct ExecBase *, SysBase, 88, Exec)
  9. |
  10. |   FUNCTION
  11. |    Read the contents of the sr in a easy and compatible way.
  12. |
  13. |   INPUTS
  14. |
  15. |   RESULT
  16. |    The contents of sr as a UWORD.
  17. |
  18. |   NOTES
  19. |    This function will most likely be implemented by a few instructions
  20. |    directly in the jumptable.
  21. |
  22. |   EXAMPLE
  23. |
  24. |   BUGS
  25. |
  26. |   SEE ALSO
  27. |    SetSR()
  28. |
  29. |   INTERNALS
  30. |
  31. |   HISTORY
  32. |
  33. |******************************************************************************
  34.  
  35.     | This function is implemented directly in the jumptable - but it
  36.     | doesn't harm to see what it looks like.
  37.     | 68000 version
  38.     .globl    _Exec_GetCC
  39. _Exec_GetCC:
  40.     movew    sr,d0
  41.     rts
  42.  
  43.     | 68010 and up
  44.     .globl    _Exec_GetCC_01
  45. _Exec_GetCC_01:
  46.     movew    ccr,d0
  47.     rts
  48.  
  49.